home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / B-Book Series / (k)b3.d64 / program31 < prev    next >
Text File  |  2007-02-28  |  567b  |  24 lines
  1. 0010 // PROGRAM 31
  2. 0020 //
  3. 0030 // COMELY KATE
  4. 0040 //
  5. 0050 // TO IDENTIFY SYMBOL ENTERED AT KEYBOARD
  6. 0060 //
  7. 0070 DIM CHARACTER$ OF 1
  8. 0080 PRINT 
  9. 0090 INPUT "TYPE ANY CHARACTER ": CHARACTER$
  10. 0100 PRINT 
  11. 0110 CASE CHARACTER$ OF
  12. 0120 WHEN "A","E","I","O","U"
  13. 0130 PRINT "VOWEL"
  14. 0140 WHEN "B","C","D","F","G","H","J","K","L","M","N","P","Q","R","S","T","V"
  15. 0150 PRINT "CONSONANT"
  16. 0160 WHEN "W","X","Y","Z"
  17. 0170 PRINT "CONSONANT"
  18. 0180 WHEN "0","1","2","3","4","5","6","7","8","9"
  19. 0190 PRINT "DIGIT"
  20. 0200 OTHERWISE 
  21. 0210 PRINT "SPECIAL CHARACTER"
  22. 0220 ENDCASE 
  23. 0230 END 
  24.